while (<*.m>) {
    $fname = $_;
    open(F,$fname);
    @a = <F>;
    close(F);
    foreach my $line (@a){
	$line =~s/deriv1f/deriv1s/g;
	$line =~s/elelmult_lastindx/elelmult_splastindx/g;
    }
    open(F,">$fname");
    print F @a;
    close(F);
}
